home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / DM.DFM / DM.txt
Encoding:
Text File  |  1996-08-12  |  1.6 KB  |  71 lines
  1. object DM1: TDM1
  2.   OnCreate = DM1Create
  3.   Left = 118
  4.   Top = 83
  5.   Height = 223
  6.   Width = 451
  7.   object Customer: TTable
  8.     Active = True
  9.     Filtered = True
  10.     DatabaseName = 'DBDEMOS'
  11.     IndexFieldNames = 'Company'
  12.     TableName = 'CUSTOMER.DB'
  13.     Left = 27
  14.     Top = 9
  15.   end
  16.   object CustomerSource: TDataSource
  17.     DataSet = Customer
  18.     Left = 111
  19.     Top = 33
  20.   end
  21.   object SQLCustomer: TQuery
  22.     DatabaseName = 'DBDEMOS'
  23.     SQL.Strings = (
  24.       'SELECT * FROM "CUSTOMER.DB" ')
  25.     Left = 26
  26.     Top = 62
  27.   end
  28.   object SQLOrders: TQuery
  29.     Active = True
  30.     OnFilterRecord = SQLOrdersFilterRecord
  31.     DatabaseName = 'DBDEMOS'
  32.     DataSource = CustomerSource
  33.     Params.Data = {0100010006437573744E6F000608000000000000B499400000}
  34.     SQL.Strings = (
  35.       'Select * From Orders Where Custno = :CustNo ')
  36.     Left = 196
  37.     Top = 32
  38.     object SQLOrdersOrderNo: TFloatField
  39.       DisplayWidth = 10
  40.       FieldName = 'OrderNo'
  41.     end
  42.     object SQLOrdersCustno: TFloatField
  43.       DisplayWidth = 8
  44.       FieldName = 'Custno'
  45.     end
  46.     object SQLOrdersAmountPaid: TCurrencyField
  47.       DisplayWidth = 13
  48.       FieldName = 'AmountPaid'
  49.     end
  50.     object SQLOrdersSaleDate: TDateTimeField
  51.       Alignment = taRightJustify
  52.       DisplayWidth = 10
  53.       FieldName = 'SaleDate'
  54.     end
  55.     object SQLOrdersShipDate: TDateTimeField
  56.       Alignment = taRightJustify
  57.       DisplayWidth = 10
  58.       FieldName = 'ShipDate'
  59.     end
  60.     object SQLOrdersEmpNo: TIntegerField
  61.       DisplayWidth = 8
  62.       FieldName = 'EmpNo'
  63.     end
  64.   end
  65.   object OrdersSource: TDataSource
  66.     DataSet = SQLOrders
  67.     Left = 272
  68.     Top = 32
  69.   end
  70. end
  71.